     

: 
Declare Sub GetMem1 Lib "msvbvm60.dll" (ByVal MemAddress As Long,var As Byte)
Public Function GetBIOSDate() As String
Dim p As Byte, MemAddr As Long, sBios As String
Dim i As Integer
'MemAddr = &HFFFF5
MemAddr = &HFEC71
For i = 0 To 25
Call GetMem1(MemAddr + i, p)
sBios = sBios & Chr$(p)
Next i
GetBIOSDate = sBios
End Function

 

       win95 - win98 
     XP  2000 

 